*** This code produces figure A1 in the online appendix (opposition and government mean positions) 	***
*** For Tuttnauer & Wegmann in APSR 																***
*** "Voting for Votes: Opposition Parties’ Legislative Activity and Electoral Outcomes"				***

** Figure A1 **
use TW_votelevel_data.dta, clear
hist party_position, name(opp_positions, replace) scheme(plotplain) ///
	subtitle("Opposition party positions") xtitle("") percent 
hist cab_position if vote_u==1, name(gov_positions, replace) scheme(plotplain) ///
	subtitle("Coalition positions") xtitle("") percent
	
graph combine opp_positions gov_positions, col(2) ycommon 
graph export position_hist.tif, replace


